CU Amiga Super CD-ROM 11/CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso/cucd/programming/oberonv4/source/system/amigasystem.mod

Oberon Text | 1996-07-28 | 5KB | 146 lines

Syntax10.Scn.Fnt
ParcElems
Alloc
Syntax24b.Scn.Fnt
Syntax10b.Scn.Fnt
FoldElems
(* AMIGA *)
MODULE AmigaSystem; (* RD 15-06-96 *)
IMPORT Texts, Oberon, Amiga;
    W: Texts.Writer;
PROCEDURE Str(s: ARRAY OF CHAR);    BEGIN Texts.WriteString(W, s) END Str;
PROCEDURE Ch(ch: CHAR);    BEGIN Texts.Write(W, ch) END Ch;
PROCEDURE Integer(i: LONGINT);    BEGIN Texts.Write(W, " "); Texts.WriteInt(W, i, 0) END Integer;
PROCEDURE Ln;    BEGIN Texts.WriteLn(W) END Ln;
PROCEDURE Append(t: Texts.Text);    BEGIN ASSERT(t#NIL); Texts.Append(t, W.buf) END Append;
PROCEDURE ScanFirst(VAR s: Texts.Scanner);    (* Scan first parameter *)
    VAR sel: Texts.Text; beg, end, time: LONGINT;
BEGIN
    Texts.OpenScanner(s, Oberon.Par.text, Oberon.Par.pos); Texts.Scan(s);
    IF (s.class = Texts.Char) & (s.c = "^") OR (s.line # 0) THEN
        Oberon.GetSelection(sel, beg, end, time);
        IF time >= 0 THEN Texts.OpenScanner(s, sel, beg); Texts.Scan(s) END
END ScanFirst;
(* Set the time to wait between two runs of the main loop. If 0, main loop runs allways at low pri *)
PROCEDURE SetInterval*;
    VAR s: Texts.Scanner;
BEGIN
    ScanFirst(s);
    IF (s.class=Texts.Int) & (s.i>=0) & (s.i<1000) THEN
      Amiga.TicsToWait:=1000*s.i
END SetInterval;
PROCEDURE ShowMode*;
        displayID:LONGINT; height, width, depth: INTEGER;
        oscan:LONGINT; autoScroll, WBWindow, PrivateColors:BOOLEAN;
BEGIN
    Amiga.ReadScreenMode(displayID, height, width, depth, oscan, autoScroll, WBWindow, PrivateColors);
    Str("Width "); Integer(width); Ln;
    Str("Height "); Integer(height); Ln;
    Str("Depth "); Integer(depth); Ln;
    Str("AutoScroll ");
    IF autoScroll THEN Str("TRUE") ELSE Str("FALSE") END;
    Ln; Append(Oberon.Log)
END ShowMode;
PROCEDURE ChangeMode*;
        res: INTEGER; s: Texts.Scanner;
        displayID:LONGINT; height, width, depth: INTEGER; oscan:LONGINT;
        autoScroll, WBWindow, PrivateColors: BOOLEAN;
    PROCEDURE GetInt(VAR val: INTEGER; min, max: INTEGER);
    BEGIN
        Texts.Scan(s);
        IF (s.class = Texts.Int) & (min <= s.i) & (s.i <= max) THEN val := SHORT(s.i) END;
        Texts.Scan(s)
    END GetInt;
BEGIN
    Amiga.ChangeMode(res);
    IF res#0 THEN
        Amiga.ReadScreenMode(displayID, height, width, depth, oscan, autoScroll, WBWindow, PrivateColors);
        ScanFirst(s);
        WHILE s.class = Texts.Name DO
            IF s.s = "Width" THEN GetInt(width, 320, 16383)
            ELSIF s.s = "Height" THEN GetInt(height, 200, 16383)
            ELSIF s.s = "Depth" THEN GetInt(depth, 1, 8)
            ELSIF s.s = "AutoScroll" THEN
                Texts.Scan(s);
                IF s.class = Texts.Name THEN
                    IF s.s = "TRUE" THEN autoScroll := TRUE; Texts.Scan(s)
                    ELSIF s.s = "FALSE" THEN autoScroll := FALSE; Texts.Scan(s)
                    END
                END
            ELSE Texts.Scan(s)
            END
        END;
        Amiga.WriteScreenMode(displayID, height, width, depth, oscan, autoScroll, WBWindow, PrivateColors);
        Str("changes take effect after restart!"); Ln;
        Append(Oberon.Log)
END ChangeMode;
PROCEDURE ChangePri*;
    VAR s: Texts.Scanner;
    PROCEDURE GetInt(VAR val: SHORTINT; min, max: SHORTINT);
    BEGIN
        IF (s.class = Texts.Int) & (min <= s.i) & (s.i <= max) THEN val := SHORT(SHORT(s.i)) END;
        Texts.Scan(s)
    END GetInt;
BEGIN
    ScanFirst(s);
    GetInt(Amiga.idlePri, -128, -31);
    GetInt(Amiga.normalPri, Amiga.idlePri, 5);
    Str("System.ChangePri idle normal ="); Integer(Amiga.idlePri); Integer(Amiga.normalPri);
    Ln; Append(Oberon.Log); Amiga.Turbo
END ChangePri;
PROCEDURE TwoButtonMouse*;
BEGIN
    Amiga.useLAltAsMouse:=TRUE
END TwoButtonMouse;
PROCEDURE ThreeButtonMouse*;
BEGIN
    Amiga.useLAltAsMouse:=FALSE
END ThreeButtonMouse;
PROCEDURE UseQuitRequester*;
BEGIN
    Amiga.UseQuitRequester:=TRUE
END UseQuitRequester;
PROCEDURE PictPrintThresh*;
    VAR s: Texts.Scanner;
    PROCEDURE GetInt(VAR val: INTEGER; min, max: INTEGER);
    BEGIN
        IF (s.class = Texts.Int) & (min <= s.i) & (s.i <= max) THEN val := SHORT(s.i) END;
        Texts.Scan(s)
    END GetInt;
BEGIN
    ScanFirst(s);
    GetInt(Amiga.PictPrintThresh, 0, 255)
END PictPrintThresh;
PROCEDURE PrinterName*;
    VAR S: Texts.Scanner;
    (* get parameters from Menu, Text or Selection *)
    PROCEDURE GetPar(VAR S: Texts.Scanner): BOOLEAN;
        VAR
            text: Texts.Text;
            beg, end, time: LONGINT;
    BEGIN
        Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
        Texts.Scan(S);
        IF S.class=Texts.Char THEN
            IF S.c="^" THEN
                Oberon.GetSelection(text, beg, end, time);
                IF time=-1 THEN RETURN FALSE END;
                Texts.OpenScanner(S, text, beg);
                Texts.Scan(S)
            END
        END;
        RETURN TRUE
    END GetPar;
BEGIN
    IF GetPar(S) THEN
        IF (S.class=Texts.Name) OR (S.class=Texts.String) THEN
            COPY(S.s, Amiga.PrinterName)
        END
    END;
    Str("Printer Name: ");
    Str(Amiga.PrinterName); Ln; Append(Oberon.Log)
END PrinterName;
BEGIN
    Texts.OpenWriter(W)
END AmigaSystem.